home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 20 / 64er_Magazin_Sonderheft_20_19xx_Markt__Technik_de_Side_A.d64 / listing 20 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  342b  |  9 lines
  1. 10 printchr$(147):poke 53280,5:poke 53281,6
  2. 20 v=53248:poke v+34,3
  3. 30 poke 53269,4:poke 2042,13
  4. 40 for n=0 to 62:read q:poke 832+n,q:next
  5. 100 data 255,255,255,128,0,1,128,0,1,128,0,1,144,0,1,144,0,1,144,0,1,144,0,1
  6. 101 data 144,0,1,144,0,1,144,0,1,144,0,1,144,0,1,144,0,1,128,0,1,128,0,1
  7. 102 data 128,0,1,128,0,1,128,0,1,128,0,1,255,255,255
  8. 200 x=200:y=100:poke 53252,x:poke 53253,y
  9.